<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  <html xmlns="http://www.w3.org/1999/xhtml">
		<head>
			<!-- template designed by Marco Von Ballmoos -->
			<title>File Source for ocaml.php</title>
			<link rel="stylesheet" href="../media/stylesheet.css" />
			<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'/>
		</head>
		<body>
						<h1>Source for file ocaml.php</h1>
<p>Documentation is available at <a href="../core/_geshi_ocaml_php.html">ocaml.php</a></p>
<div class="src-code">
<pre><a name="a1"></a><br />1     <span class="src-php">&lt;?php</span><a name="a2"></a><br />2     <span class="src-doc">/***********************************************************************************</span><a name="a3"></a><br />3     <span class="src-doc"> * ocaml.php</span><a name="a4"></a><br />4     <span class="src-doc"> * ----------</span><a name="a5"></a><br />5     <span class="src-doc"> * Author: Flaie (fireflaie@gmail.com)</span><a name="a6"></a><br />6     <span class="src-doc"> * Copyright: (c) 2005 Flaie, Nigel McNie (http://qbnz.com/highlighter)</span><a name="a7"></a><br />7     <span class="src-doc"> * Release Version: 1.0.7.3</span><a name="a8"></a><br />8     <span class="src-doc"> * CVS Revision Version: $Revision: 1.2 $</span><a name="a9"></a><br />9     <span class="src-doc"> * Date Started: 2005/08/27</span><a name="a10"></a><br />10    <span class="src-doc"> * Last Modified: $Date: 2005/09/22 01:35:22 $</span><a name="a11"></a><br />11    <span class="src-doc"> *</span><a name="a12"></a><br />12    <span class="src-doc"> * OCaml (Objective Caml) language file for GeSHi.</span><a name="a13"></a><br />13    <span class="src-doc"> *</span><a name="a14"></a><br />14    <span class="src-doc"> * CHANGES</span><a name="a15"></a><br />15    <span class="src-doc"> * -------</span><a name="a16"></a><br />16    <span class="src-doc"> * 2005/08/27 (1.0.0)</span><a name="a17"></a><br />17    <span class="src-doc"> *   -  First Release</span><a name="a18"></a><br />18    <span class="src-doc"> *</span><a name="a19"></a><br />19    <span class="src-doc"> * TODO (updated 2005/08/27)</span><a name="a20"></a><br />20    <span class="src-doc"> * -------------------------</span><a name="a21"></a><br />21    <span class="src-doc"> *</span><a name="a22"></a><br />22    <span class="src-doc"> ************************************************************************************</span><a name="a23"></a><br />23    <span class="src-doc"> *</span><a name="a24"></a><br />24    <span class="src-doc"> *   This file is part of GeSHi.</span><a name="a25"></a><br />25    <span class="src-doc"> *</span><a name="a26"></a><br />26    <span class="src-doc"> *   GeSHi is free software; you can redistribute it and/or modify</span><a name="a27"></a><br />27    <span class="src-doc"> *   it under the terms of the GNU General Public License as published by</span><a name="a28"></a><br />28    <span class="src-doc"> *   the Free Software Foundation; either version 2 of the License, or</span><a name="a29"></a><br />29    <span class="src-doc"> *   (at your option) any later version.</span><a name="a30"></a><br />30    <span class="src-doc"> *</span><a name="a31"></a><br />31    <span class="src-doc"> *   GeSHi is distributed in the hope that it will be useful,</span><a name="a32"></a><br />32    <span class="src-doc"> *   but WITHOUT ANY WARRANTY; without even the implied warranty of</span><a name="a33"></a><br />33    <span class="src-doc"> *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the</span><a name="a34"></a><br />34    <span class="src-doc"> *   GNU General Public License for more details.</span><a name="a35"></a><br />35    <span class="src-doc"> *</span><a name="a36"></a><br />36    <span class="src-doc"> *   You should have received a copy of the GNU General Public License</span><a name="a37"></a><br />37    <span class="src-doc"> *   along with GeSHi; if not, write to the Free Software</span><a name="a38"></a><br />38    <span class="src-doc"> *   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA</span><a name="a39"></a><br />39    <span class="src-doc"> *</span><a name="a40"></a><br />40    <span class="src-doc"> ************************************************************************************/</span><a name="a40"></a><br />40    <a name="a41"></a><br />41    <a name="a42"></a><br />42    <span class="src-var">$language_data</span> = <span class="src-key">array</span> <span class="src-sym">(</span><a name="a43"></a><br />43        <span class="src-str">'LANG_NAME'</span> =&gt; <span class="src-str">'OCaml'</span><span class="src-sym">,</span><a name="a44"></a><br />44        <span class="src-str">'COMMENT_SINGLE'</span> =&gt; <span class="src-key">array</span><span class="src-sym">(</span><span class="src-sym">)</span><span class="src-sym">,</span><a name="a45"></a><br />45        <span class="src-str">'COMMENT_MULTI'</span> =&gt; <span class="src-key">array</span><span class="src-sym">(</span><span class="src-str">'(*'</span> =&gt; <span class="src-str">'*)'</span><span class="src-sym">)</span><span class="src-sym">,</span><a name="a46"></a><br />46        <span class="src-str">'CASE_KEYWORDS'</span> =&gt; <span class="src-num">0</span><span class="src-sym">,</span><a name="a47"></a><br />47        <span class="src-str">'QUOTEMARKS'</span> =&gt; <span class="src-key">array</span><span class="src-sym">(</span><span class="src-str">'&quot;'</span><span class="src-sym">)</span><span class="src-sym">,</span><a name="a48"></a><br />48        <span class="src-str">'ESCAPE_CHAR'</span> =&gt; <span class="src-str">&quot;&quot;</span><span class="src-sym">,</span><a name="a49"></a><br />49        <span class="src-str">'KEYWORDS'</span> =&gt; <span class="src-key">array</span><span class="src-sym">(</span><a name="a50"></a><br />50           <span class="src-comm">/* main OCaml keywords */</span><a name="a51"></a><br />51            <span class="src-num">1</span> =&gt; <span class="src-key">array</span><span class="src-sym">(</span><a name="a52"></a><br />52                <span class="src-str">'and'</span><span class="src-sym">,</span> <span class="src-str">'As'</span><span class="src-sym">,</span> <span class="src-str">'asr'</span><span class="src-sym">,</span> <span class="src-str">'begin'</span><span class="src-sym">,</span> <span class="src-str">'Class'</span><span class="src-sym">,</span> <span class="src-str">'Closed'</span><span class="src-sym">,</span> <span class="src-str">'constraint'</span><span class="src-sym">,</span> <span class="src-str">'do'</span><span class="src-sym">,</span> <span class="src-str">'done'</span><span class="src-sym">,</span> <span class="src-str">'downto'</span><span class="src-sym">,</span> <span class="src-str">'else'</span><span class="src-sym">,</span><a name="a53"></a><br />53                <span class="src-str">'end'</span><span class="src-sym">,</span> <span class="src-str">'exception'</span><span class="src-sym">,</span> <span class="src-str">'external'</span><span class="src-sym">,</span> <span class="src-str">'failwith'</span><span class="src-sym">,</span> <span class="src-str">'false'</span><span class="src-sym">,</span> <span class="src-str">'flush'</span><span class="src-sym">,</span> <span class="src-str">'for'</span><span class="src-sym">,</span> <span class="src-str">'fun'</span><span class="src-sym">,</span> <span class="src-str">'function'</span><span class="src-sym">,</span> <span class="src-str">'functor'</span><span class="src-sym">,</span><a name="a54"></a><br />54                <span class="src-str">'if'</span><span class="src-sym">,</span> <span class="src-str">'in'</span><span class="src-sym">,</span> <span class="src-str">'include'</span><span class="src-sym">,</span> <span class="src-str">'inherit'</span><span class="src-sym">,</span>  <span class="src-str">'incr'</span><span class="src-sym">,</span> <span class="src-str">'land'</span><span class="src-sym">,</span> <span class="src-str">'let'</span><span class="src-sym">,</span> <span class="src-str">'load'</span><span class="src-sym">,</span> <span class="src-str">'los'</span><span class="src-sym">,</span> <span class="src-str">'lsl'</span><span class="src-sym">,</span> <span class="src-str">'lsr'</span><span class="src-sym">,</span> <span class="src-str">'lxor'</span><span class="src-sym">,</span><a name="a55"></a><br />55                <span class="src-str">'match'</span><span class="src-sym">,</span> <span class="src-str">'method'</span><span class="src-sym">,</span> <span class="src-str">'mod'</span><span class="src-sym">,</span> <span class="src-str">'module'</span><span class="src-sym">,</span> <span class="src-str">'mutable'</span><span class="src-sym">,</span> <span class="src-str">'new'</span><span class="src-sym">,</span> <span class="src-str">'not'</span><span class="src-sym">,</span> <span class="src-str">'of'</span><span class="src-sym">,</span> <span class="src-str">'open'</span><span class="src-sym">,</span> <span class="src-str">'option'</span><span class="src-sym">,</span> <span class="src-str">'or'</span><span class="src-sym">,</span> <span class="src-str">'parser'</span><span class="src-sym">,</span><a name="a56"></a><br />56                <span class="src-str">'private'</span><span class="src-sym">,</span> <span class="src-str">'ref'</span><span class="src-sym">,</span> <span class="src-str">'rec'</span><span class="src-sym">,</span> <span class="src-str">'raise'</span><span class="src-sym">,</span> <span class="src-str">'regexp'</span><span class="src-sym">,</span> <span class="src-str">'sig'</span><span class="src-sym">,</span> <span class="src-str">'struct'</span><span class="src-sym">,</span> <span class="src-str">'stdout'</span><span class="src-sym">,</span> <span class="src-str">'stdin'</span><span class="src-sym">,</span> <span class="src-str">'stderr'</span><span class="src-sym">,</span> <span class="src-str">'then'</span><span class="src-sym">,</span><a name="a57"></a><br />57                <span class="src-str">'to'</span><span class="src-sym">,</span> <span class="src-str">'true'</span><span class="src-sym">,</span> <span class="src-str">'try'</span><span class="src-sym">,</span> <span class="src-str">'type'</span><span class="src-sym">,</span> <span class="src-str">'val'</span><span class="src-sym">,</span> <span class="src-str">'virtual'</span><span class="src-sym">,</span> <span class="src-str">'when'</span><span class="src-sym">,</span> <span class="src-str">'while'</span><span class="src-sym">,</span> <span class="src-str">'with'</span><a name="a58"></a><br />58                <span class="src-sym">)</span><span class="src-sym">,</span><a name="a59"></a><br />59            <span class="src-comm">/* define names of main librarys, so we can link to it */</span><a name="a60"></a><br />60            <span class="src-num">2</span> =&gt; <span class="src-key">array</span><span class="src-sym">(</span><a name="a61"></a><br />61                <span class="src-str">'Arg'</span><span class="src-sym">,</span> <span class="src-str">'Arith_status'</span><span class="src-sym">,</span> <span class="src-str">'Array'</span><span class="src-sym">,</span> <span class="src-str">'ArrayLabels'</span><span class="src-sym">,</span> <span class="src-str">'Big_int'</span><span class="src-sym">,</span> <span class="src-str">'Bigarray'</span><span class="src-sym">,</span> <span class="src-str">'Buffer'</span><span class="src-sym">,</span> <span class="src-str">'Callback'</span><span class="src-sym">,</span><a name="a62"></a><br />62                <span class="src-str">'CamlinternalOO'</span><span class="src-sym">,</span> <span class="src-str">'Char'</span><span class="src-sym">,</span> <span class="src-str">'Complex'</span><span class="src-sym">,</span> <span class="src-str">'Condition'</span><span class="src-sym">,</span> <span class="src-str">'Dbm'</span><span class="src-sym">,</span> <span class="src-str">'Digest'</span><span class="src-sym">,</span> <span class="src-str">'Dynlink'</span><span class="src-sym">,</span> <span class="src-str">'Event'</span><span class="src-sym">,</span><a name="a63"></a><br />63                <span class="src-str">'Filename'</span><span class="src-sym">,</span> <span class="src-str">'Format'</span><span class="src-sym">,</span> <span class="src-str">'Gc'</span><span class="src-sym">,</span> <span class="src-str">'Genlex'</span><span class="src-sym">,</span> <span class="src-str">'Graphics'</span><span class="src-sym">,</span> <span class="src-str">'GraphicsX11'</span><span class="src-sym">,</span> <span class="src-str">'Hashtbl'</span><span class="src-sym">,</span> <span class="src-str">'Int32'</span><span class="src-sym">,</span> <span class="src-str">'Int64'</span><span class="src-sym">,</span><a name="a64"></a><br />64                <span class="src-str">'Lazy'</span><span class="src-sym">,</span> <span class="src-str">'Lexing'</span><span class="src-sym">,</span> <span class="src-str">'List'</span><span class="src-sym">,</span> <span class="src-str">'ListLabels'</span><span class="src-sym">,</span> <span class="src-str">'Map'</span><span class="src-sym">,</span> <span class="src-str">'Marshal'</span><span class="src-sym">,</span> <span class="src-str">'MoreLabels'</span><span class="src-sym">,</span> <span class="src-str">'Mutex'</span><span class="src-sym">,</span> <span class="src-str">'Nativeint'</span><span class="src-sym">,</span><a name="a65"></a><br />65                <span class="src-str">'Num'</span><span class="src-sym">,</span> <span class="src-str">'Obj'</span><span class="src-sym">,</span> <span class="src-str">'Oo'</span><span class="src-sym">,</span> <span class="src-str">'Parsing'</span><span class="src-sym">,</span> <span class="src-str">'Pervasives'</span><span class="src-sym">,</span> <span class="src-str">'Printexc'</span><span class="src-sym">,</span> <span class="src-str">'Printf'</span><span class="src-sym">,</span> <span class="src-str">'Queue'</span><span class="src-sym">,</span> <span class="src-str">'Random'</span><span class="src-sym">,</span> <span class="src-str">'Scanf'</span><span class="src-sym">,</span><a name="a66"></a><br />66                <span class="src-str">'Set'</span><span class="src-sym">,</span> <span class="src-str">'Sort'</span><span class="src-sym">,</span> <span class="src-str">'Stack'</span><span class="src-sym">,</span> <span class="src-str">'StdLabels'</span><span class="src-sym">,</span> <span class="src-str">'Str'</span><span class="src-sym">,</span> <span class="src-str">'Stream'</span><span class="src-sym">,</span> <span class="src-str">'String'</span><span class="src-sym">,</span> <span class="src-str">'StringLabels'</span><span class="src-sym">,</span> <span class="src-str">'Sys'</span><span class="src-sym">,</span> <span class="src-str">'Thread'</span><span class="src-sym">,</span><a name="a67"></a><br />67                <span class="src-str">'ThreadUnix'</span><span class="src-sym">,</span> <span class="src-str">'Tk'</span><a name="a68"></a><br />68               <span class="src-sym">)</span><span class="src-sym">,</span><a name="a69"></a><br />69            <span class="src-comm">/* just link to the Pervasives functions library, cause it's the default opened library when starting OCaml */</span><a name="a70"></a><br />70            <span class="src-num">3</span> =&gt; <span class="src-key">array</span><span class="src-sym">(</span><a name="a71"></a><br />71                <span class="src-str">'raise'</span><span class="src-sym">,</span> <span class="src-str">'invalid_arg'</span><span class="src-sym">,</span> <span class="src-str">'failwith'</span><span class="src-sym">,</span> <span class="src-str">'compare'</span><span class="src-sym">,</span> <span class="src-str">'min'</span><span class="src-sym">,</span> <span class="src-str">'max'</span><span class="src-sym">,</span> <span class="src-str">'succ'</span><span class="src-sym">,</span> <span class="src-str">'pred'</span><span class="src-sym">,</span> <span class="src-str">'mod'</span><span class="src-sym">,</span> <span class="src-str">'abs'</span><span class="src-sym">,</span> <a name="a72"></a><br />72                <span class="src-str">'max_int'</span><span class="src-sym">,</span> <span class="src-str">'min_int'</span><span class="src-sym">,</span> <span class="src-str">'sqrt'</span><span class="src-sym">,</span> <span class="src-str">'exp'</span><span class="src-sym">,</span> <span class="src-str">'log'</span><span class="src-sym">,</span> <span class="src-str">'log10'</span><span class="src-sym">,</span> <span class="src-str">'cos'</span><span class="src-sym">,</span> <span class="src-str">'sin'</span><span class="src-sym">,</span> <span class="src-str">'tan'</span><span class="src-sym">,</span> <span class="src-str">'acos'</span><span class="src-sym">,</span> <span class="src-str">'asin'</span><span class="src-sym">,</span> <a name="a73"></a><br />73                <span class="src-str">'atan'</span><span class="src-sym">,</span> <span class="src-str">'atan2'</span><span class="src-sym">,</span> <span class="src-str">'cosh'</span><span class="src-sym">,</span> <span class="src-str">'sinh'</span><span class="src-sym">,</span> <span class="src-str">'tanh'</span><span class="src-sym">,</span> <span class="src-str">'ceil'</span><span class="src-sym">,</span> <span class="src-str">'floor'</span><span class="src-sym">,</span> <span class="src-str">'abs_float'</span><span class="src-sym">,</span> <span class="src-str">'mod_float'</span><span class="src-sym">,</span> <span class="src-str">'frexp'</span><span class="src-sym">,</span><a name="a74"></a><br />74                <span class="src-str">'ldexp'</span><span class="src-sym">,</span> <span class="src-str">'modf'</span><span class="src-sym">,</span> <span class="src-str">'float'</span><span class="src-sym">,</span> <span class="src-str">'float_of_int'</span><span class="src-sym">,</span> <span class="src-str">'truncate'</span><span class="src-sym">,</span> <span class="src-str">'int_of_float'</span><span class="src-sym">,</span> <span class="src-str">'infinity'</span><span class="src-sym">,</span> <span class="src-str">'nan'</span><span class="src-sym">,</span><a name="a75"></a><br />75                <span class="src-str">'max_float'</span><span class="src-sym">,</span> <span class="src-str">'min_float'</span><span class="src-sym">,</span> <span class="src-str">'epsilon_float'</span><span class="src-sym">,</span> <span class="src-str">'classify_float'</span><span class="src-sym">,</span> <span class="src-str">'int_of_char'</span><span class="src-sym">,</span> <span class="src-str">'char_of_int'</span><span class="src-sym">,</span> <a name="a76"></a><br />76                <span class="src-str">'ignore'</span><span class="src-sym">,</span> <span class="src-str">'string_of_bool'</span><span class="src-sym">,</span> <span class="src-str">'bool_of_string'</span><span class="src-sym">,</span> <span class="src-str">'string_of_int'</span><span class="src-sym">,</span> <span class="src-str">'int_of_string'</span><span class="src-sym">,</span> <a name="a77"></a><br />77                <span class="src-str">'string_of_float'</span><span class="src-sym">,</span> <span class="src-str">'float_of_string'</span><span class="src-sym">,</span> <span class="src-str">'fst'</span><span class="src-sym">,</span> <span class="src-str">'snd'</span><span class="src-sym">,</span> <span class="src-str">'stdin'</span><span class="src-sym">,</span> <span class="src-str">'stdout'</span><span class="src-sym">,</span> <span class="src-str">'stderr'</span><span class="src-sym">,</span> <span class="src-str">'print_char'</span><span class="src-sym">,</span><a name="a78"></a><br />78                <span class="src-str">'print_string'</span><span class="src-sym">,</span> <span class="src-str">'print_int'</span><span class="src-sym">,</span> <span class="src-str">'print_float'</span><span class="src-sym">,</span> <span class="src-str">'print_endline'</span><span class="src-sym">,</span> <span class="src-str">'print_newline'</span><span class="src-sym">,</span> <span class="src-str">'prerr_char'</span><span class="src-sym">,</span><a name="a79"></a><br />79                <span class="src-str">'prerr_string'</span><span class="src-sym">,</span> <span class="src-str">'prerr_int'</span><span class="src-sym">,</span> <span class="src-str">'prerr_float'</span><span class="src-sym">,</span> <span class="src-str">'prerr_endline'</span><span class="src-sym">,</span> <span class="src-str">'prerr_newline'</span><span class="src-sym">,</span> <span class="src-str">'read_line'</span><span class="src-sym">,</span><a name="a80"></a><br />80                <span class="src-str">'read_int'</span><span class="src-sym">,</span> <span class="src-str">'read_float'</span><span class="src-sym">,</span> <span class="src-str">'open_out'</span><span class="src-sym">,</span> <span class="src-str">'open_out_bin'</span><span class="src-sym">,</span> <span class="src-str">'open_out_gen'</span><span class="src-sym">,</span> <span class="src-str">'flush'</span><span class="src-sym">,</span> <span class="src-str">'flush_all'</span><span class="src-sym">,</span><a name="a81"></a><br />81                <span class="src-str">'output_char'</span><span class="src-sym">,</span> <span class="src-str">'output_string'</span><span class="src-sym">,</span> <span class="src-str">'output'</span><span class="src-sym">,</span> <span class="src-str">'output_byte'</span><span class="src-sym">,</span> <span class="src-str">'output_binary_int'</span><span class="src-sym">,</span> <span class="src-str">'output_value'</span><span class="src-sym">,</span><a name="a82"></a><br />82                <span class="src-str">'seek_out'</span><span class="src-sym">,</span> <span class="src-str">'pos_out'</span><span class="src-sym">,</span>  <span class="src-str">'out_channel_length'</span><span class="src-sym">,</span> <span class="src-str">'close_out'</span><span class="src-sym">,</span> <span class="src-str">'close_out_noerr'</span><span class="src-sym">,</span> <span class="src-str">'set_binary_mode_out'</span><span class="src-sym">,</span><a name="a83"></a><br />83                <span class="src-str">'open_in'</span><span class="src-sym">,</span> <span class="src-str">'open_in_bin'</span><span class="src-sym">,</span> <span class="src-str">'open_in_gen'</span><span class="src-sym">,</span> <span class="src-str">'input_char'</span><span class="src-sym">,</span> <span class="src-str">'input_line'</span><span class="src-sym">,</span> <span class="src-str">'input'</span><span class="src-sym">,</span> <span class="src-str">'really_input'</span><span class="src-sym">,</span><a name="a84"></a><br />84                <span class="src-str">'input_byte'</span><span class="src-sym">,</span> <span class="src-str">'input_binary_int'</span><span class="src-sym">,</span> <span class="src-str">'input_value'</span><span class="src-sym">,</span> <span class="src-str">'seek_in'</span><span class="src-sym">,</span> <span class="src-str">'pos_in'</span><span class="src-sym">,</span> <span class="src-str">'in_channel_length'</span><span class="src-sym">,</span><a name="a85"></a><br />85                <span class="src-str">'close_in'</span><span class="src-sym">,</span> <span class="src-str">'close_in_noerr'</span><span class="src-sym">,</span> <span class="src-str">'set_binary_mode_in'</span><span class="src-sym">,</span> <span class="src-str">'incr'</span><span class="src-sym">,</span> <span class="src-str">'decr'</span><span class="src-sym">,</span> <span class="src-str">'string_of_format'</span><span class="src-sym">,</span><a name="a86"></a><br />86                <span class="src-str">'format_of_string'</span><span class="src-sym">,</span> <span class="src-str">'exit'</span><span class="src-sym">,</span> <span class="src-str">'at_exit'</span> <a name="a87"></a><br />87               <span class="src-sym">)</span><span class="src-sym">,</span><a name="a88"></a><br />88            <span class="src-comm">/* here Pervasives Types */</span><a name="a89"></a><br />89            <span class="src-num">4</span> =&gt; <span class="src-key">array</span> <span class="src-sym">(</span><a name="a90"></a><br />90               <span class="src-str">'fpclass'</span><span class="src-sym">,</span> <span class="src-str">'in_channel'</span><span class="src-sym">,</span> <span class="src-str">'out_channel'</span><span class="src-sym">,</span> <span class="src-str">'open_flag'</span><span class="src-sym">,</span> <span class="src-str">'Sys_error'</span><span class="src-sym">,</span> <span class="src-str">'ref'</span><span class="src-sym">,</span> <span class="src-str">'format'</span><a name="a91"></a><br />91               <span class="src-sym">)</span><span class="src-sym">,</span><a name="a92"></a><br />92            <span class="src-comm">/* finally Pervasives Exceptions */</span><a name="a93"></a><br />93            <span class="src-num">5</span> =&gt; <span class="src-key">array</span> <span class="src-sym">(</span><a name="a94"></a><br />94                <span class="src-str">'Exit'</span><span class="src-sym">,</span> <span class="src-str">'Invalid_Argument'</span><span class="src-sym">,</span> <span class="src-str">'Failure'</span><span class="src-sym">,</span> <span class="src-str">'Division_by_zero'</span><a name="a95"></a><br />95               <span class="src-sym">)</span><a name="a96"></a><br />96            <span class="src-sym">)</span><span class="src-sym">,</span><a name="a97"></a><br />97        <span class="src-comm">/* highlighting symbols is really important in OCaml */</span><a name="a98"></a><br />98        <span class="src-str">'SYMBOLS'</span> =&gt; <span class="src-key">array</span><span class="src-sym">(</span><a name="a99"></a><br />99                <span class="src-str">';'</span><span class="src-sym">,</span> <span class="src-str">'!'</span><span class="src-sym">,</span> <span class="src-str">':'</span><span class="src-sym">,</span> <span class="src-str">'.'</span><span class="src-sym">,</span> <span class="src-str">'='</span><span class="src-sym">,</span> <span class="src-str">'%'</span><span class="src-sym">,</span> <span class="src-str">'^'</span><span class="src-sym">,</span> <span class="src-str">'*'</span><span class="src-sym">,</span> <span class="src-str">'-'</span><span class="src-sym">,</span> <span class="src-str">'/'</span><span class="src-sym">,</span> <span class="src-str">'+'</span><span class="src-sym">,</span> <a name="a100"></a><br />100               <span class="src-str">'&gt;'</span><span class="src-sym">,</span> <span class="src-str">'&lt;'</span><span class="src-sym">,</span> <span class="src-str">'('</span><span class="src-sym">,</span> <span class="src-str">')'</span><span class="src-sym">,</span> <span class="src-str">'['</span><span class="src-sym">,</span> <span class="src-str">']'</span><span class="src-sym">,</span> <span class="src-str">'&amp;'</span><span class="src-sym">,</span> <span class="src-str">'|'</span><span class="src-sym">,</span> <span class="src-str">'#'</span><span class="src-sym">,</span> <span class="src-str">&quot;'&quot;</span><a name="a101"></a><br />101               <span class="src-sym">)</span><span class="src-sym">,</span> <a name="a102"></a><br />102       <span class="src-str">'CASE_SENSITIVE'</span> =&gt; <span class="src-key">array</span><span class="src-sym">(</span><a name="a103"></a><br />103           <span class="src-id">GESHI_COMMENTS</span> =&gt; <span class="src-id">true</span><span class="src-sym">,</span><a name="a104"></a><br />104           <span class="src-num">1</span> =&gt; <span class="src-id">false</span><span class="src-sym">,</span><a name="a105"></a><br />105           <span class="src-num">2</span> =&gt; <span class="src-id">true</span><span class="src-sym">,</span> <span class="src-comm">/* functions name are case seinsitive */</span><a name="a106"></a><br />106           <span class="src-num">3</span> =&gt; <span class="src-id">true</span><span class="src-sym">,</span> <span class="src-comm">/* types name too */</span><a name="a107"></a><br />107           <span class="src-num">4</span> =&gt; <span class="src-id">true</span>  <span class="src-comm">/* finally exceptions too */</span><a name="a108"></a><br />108           <span class="src-sym">)</span><span class="src-sym">,</span><a name="a109"></a><br />109       <span class="src-str">'STYLES'</span> =&gt; <span class="src-key">array</span><span class="src-sym">(</span><a name="a110"></a><br />110           <span class="src-str">'KEYWORDS'</span> =&gt; <span class="src-key">array</span><span class="src-sym">(</span><a name="a111"></a><br />111               <span class="src-num">1</span> =&gt; <span class="src-str">'color: #06c; font-weight: bold;'</span> <span class="src-comm">/* nice blue */</span><a name="a112"></a><br />112               <span class="src-sym">)</span><span class="src-sym">,</span><a name="a113"></a><br />113           <span class="src-str">'COMMENTS'</span> =&gt; <span class="src-key">array</span><span class="src-sym">(</span><a name="a114"></a><br />114               <span class="src-str">'MULTI'</span> =&gt; <span class="src-str">'color: #5d478b; font-style: italic;'</span> <span class="src-comm">/* light purple */</span><a name="a115"></a><br />115               <span class="src-sym">)</span><span class="src-sym">,</span><a name="a116"></a><br />116           <span class="src-str">'ESCAPE_CHAR'</span> =&gt; <span class="src-key">array</span><span class="src-sym">(</span><a name="a117"></a><br />117               <span class="src-sym">)</span><span class="src-sym">,</span><a name="a118"></a><br />118           <span class="src-str">'BRACKETS'</span> =&gt; <span class="src-key">array</span><span class="src-sym">(</span><a name="a119"></a><br />119               <span class="src-num">0</span> =&gt; <span class="src-str">'color: #6c6;'</span><a name="a120"></a><br />120               <span class="src-sym">)</span><span class="src-sym">,</span><a name="a121"></a><br />121           <span class="src-str">'STRINGS'</span> =&gt; <span class="src-key">array</span><span class="src-sym">(</span><a name="a122"></a><br />122               <span class="src-num">0</span> =&gt; <span class="src-str">'color: #3cb371;'</span> <span class="src-comm">/* nice green */</span><a name="a123"></a><br />123               <span class="src-sym">)</span><span class="src-sym">,</span><a name="a124"></a><br />124           <span class="src-str">'NUMBERS'</span> =&gt; <span class="src-key">array</span><span class="src-sym">(</span><a name="a125"></a><br />125               <span class="src-num">0</span> =&gt; <span class="src-str">'color: #c6c;'</span> <span class="src-comm">/* pink */</span><a name="a126"></a><br />126               <span class="src-sym">)</span><span class="src-sym">,</span><a name="a127"></a><br />127           <span class="src-str">'METHODS'</span> =&gt; <span class="src-key">array</span><span class="src-sym">(</span><a name="a128"></a><br />128               <span class="src-num">1</span> =&gt; <span class="src-str">'color: #060;'</span> <span class="src-comm">/* dark green */</span><a name="a129"></a><br />129               <span class="src-sym">)</span><span class="src-sym">,</span><a name="a130"></a><br />130           <span class="src-str">'REGEXPS'</span> =&gt; <span class="src-key">array</span><span class="src-sym">(</span><a name="a131"></a><br />131               <span class="src-sym">)</span><span class="src-sym">,</span><a name="a132"></a><br />132           <span class="src-str">'SYMBOLS'</span> =&gt; <span class="src-key">array</span><span class="src-sym">(</span> <a name="a133"></a><br />133               <span class="src-num">0</span> =&gt; <span class="src-str">'color: #a52a2a;'</span> <span class="src-comm">/* maroon */</span><a name="a134"></a><br />134               <span class="src-sym">)</span><span class="src-sym">,</span><a name="a135"></a><br />135           <span class="src-str">'SCRIPT'</span> =&gt; <span class="src-key">array</span><span class="src-sym">(</span><a name="a136"></a><br />136               <span class="src-sym">)</span><a name="a137"></a><br />137           <span class="src-sym">)</span><span class="src-sym">,</span><a name="a138"></a><br />138       <span class="src-str">'URLS'</span> =&gt; <span class="src-key">array</span><span class="src-sym">(</span><a name="a139"></a><br />139          <span class="src-comm">/* some of keywords are Pervasives functions (land, lxor, asr, ...) */</span><a name="a140"></a><br />140           <span class="src-num">1</span> =&gt; <span class="src-str">''</span><span class="src-sym">,</span><a name="a141"></a><br />141           <span class="src-comm">/* link to the wanted library */</span><a name="a142"></a><br />142           <span class="src-num">2</span> =&gt; <span class="src-str">'http://caml.inria.fr/pub/docs/manual-ocaml/libref/{FNAME}.html'</span><span class="src-sym">,</span> <a name="a143"></a><br />143           <span class="src-comm">/* link to Pervasives functions */</span><a name="a144"></a><br />144           <span class="src-num">3</span> =&gt; <span class="src-str">'http://caml.inria.fr/pub/docs/manual-ocaml/libref/Pervasives.html#VAL{FNAME}'</span><span class="src-sym">,</span> <a name="a145"></a><br />145           <span class="src-comm">/* link to Pervasives type */</span><a name="a146"></a><br />146           <span class="src-num">4</span> =&gt; <span class="src-str">'http://caml.inria.fr/pub/docs/manual-ocaml/libref/Pervasives.html#TYPE{FNAME}'</span><span class="src-sym">,</span><a name="a147"></a><br />147           <span class="src-comm">/* link to Pervasives exceptions */</span><a name="a148"></a><br />148           <span class="src-num">5</span> =&gt; <span class="src-str">'http://caml.inria.fr/pub/docs/manual-ocaml/libref/Pervasives.html#EXCEPTION{FNAME}'</span><a name="a149"></a><br />149           <span class="src-sym">)</span><span class="src-sym">,</span><a name="a150"></a><br />150       <span class="src-str">'OOLANG'</span> =&gt; <span class="src-id">true</span><span class="src-sym">,</span><a name="a151"></a><br />151       <span class="src-str">'OBJECT_SPLITTERS'</span> =&gt; <span class="src-key">array</span><span class="src-sym">(</span><a name="a152"></a><br />152           <span class="src-num">1</span> =&gt; <span class="src-str">'.'</span><a name="a153"></a><br />153           <span class="src-sym">)</span><span class="src-sym">,</span><a name="a154"></a><br />154       <span class="src-str">'REGEXPS'</span> =&gt; <span class="src-key">array</span><span class="src-sym">(</span><a name="a155"></a><br />155           <span class="src-sym">)</span><span class="src-sym">,</span><a name="a156"></a><br />156       <span class="src-str">'STRICT_MODE_APPLIES'</span> =&gt; <span class="src-id">GESHI_NEVER</span><span class="src-sym">,</span><a name="a157"></a><br />157       <span class="src-str">'SCRIPT_DELIMITERS'</span> =&gt; <span class="src-key">array</span><span class="src-sym">(</span><a name="a158"></a><br />158           <span class="src-sym">)</span><span class="src-sym">,</span><a name="a159"></a><br />159       <span class="src-str">'HIGHLIGHT_STRICT_BLOCK'</span> =&gt; <span class="src-key">array</span><span class="src-sym">(</span><a name="a160"></a><br />160           <span class="src-sym">)</span><a name="a161"></a><br />161   <span class="src-sym">)</span>;<a name="a162"></a><br />162   <a name="a163"></a><br />163   <span class="src-php">?&gt;</span></pre>
</div>
	<p class="notes" id="credit">
		Documentation generated on Thu, 22 Sep 2005 13:48:04 +1200 by <a href="http://www.phpdoc.org" target="_blank">phpDocumentor 1.2.3</a>
	</p>
	</body>
</html>